home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 7 / developer source - volume 7.iso / orinf / mar97 / hipsf101.gif < prev    next >
Graphics Interchange Format  |  1997-06-27  |  22KB  |  316x327  |  4-bit (16 colors)
Labels: text | electronics | screenshot | display | software | number
OCR: Oracle Procedure Bullder Elle . Edit Tools Window Help Program Unit SAL INCREASE Compd Nond SAL INCREASE (Function Body) FUNCTION sal increase (emg hun number) RETURN number IS dept_num number ; dept incr number; enp_incr number : incr number ; new_sal number : sal number : BEGIN select deptno, sal, increase pct into dept nun, sal, emp_incr From emp where empno - emp_num; select increase_pct into dept_incr From dept where deptno = dept_num; incr : dept_incr # (emp_incr/100)/100; new_sal := sal + (sal iner); return (new sal) ; Not Modified Figure 1: A function that calculates salary increases.